﻿Imports CrystalDecisions.CrystalReports.Engine

Public Class ucBaoCaoSuDungThuoc

    Private Sub rpvBaoCaoSuDungThuoc_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rpvBaoCaoSuDungThuoc.Load
        Dim crys = New ReportDocument()
        Dim reportPath As String = Application.StartupPath & "\" & "rptBaoCaoSuDungThuoc.rpt"
        crys.Load(reportPath)
    End Sub
End Class
